describe-char: fix insert char documentation

* lisp/descr-text.el (describe-char):
Only 'ucs-names' entries can be inserted by unicode name (Bug#23325).

Copyright-paperwork-exempt: yes

diff --git a/lisp/descr-text.el b/lisp/descr-text.el
index a352ed0849c865adfc9d691c7239567cf241d449..5f1a430434216f3a1fe46683732cf6648d169f16 100644 (file)
--- a/lisp/descr-text.el
+++ b/lisp/descr-text.el
@@ -619,7 +619,7 @@ relevant to POS."
                           (let ((name
                                  (or (get-char-code-property char 'name)
                                      (get-char-code-property char 'old-name))))
-                            (if name
+                            (if (and name (assoc-string name (ucs-names)))
                                 (format
                                  "type \"C-x 8 RET %x\" or \"C-x 8 RET %s\""
                                  char name)